<?php
/**
 * Zend Framework
 * LICENSE
 * This source file is subject to the new BSD license that is bundled
 * with this package in the file LICENSE.txt.
 * It is also available through the world-wide-web at this URL:
 * http://framework.zend.com/license/new-bsd
 * If you did not receive a copy of the license and are unable to
 * obtain it through the world-wide-web, please send an email
 * to license@zend.com so we can send you a copy immediately.
 * @category Zend
 * @package Zend_Config
 * @copyright Copyright (c) 2005-2009 Zend Technologies USA Inc. (http://www.zend.com)
 * @license http://framework.zend.com/license/new-bsd New BSD License
 * @version $Id: Yaml.php 23650 2011-01-21 21:32:57Z mikaelkael $
 */
/**
 *
 * @see Zend_Config_Writer
 */
require_once 'Zend/Config/Writer/FileAbstract.php';
/**
 *
 * @see Zend_Config_Yaml
 */
require_once 'Zend/Config/Yaml.php';

/**
 *
 * @category Zend
 * @package Zend_Config
 * @copyright Copyright (c) 2005-2009 Zend Technologies USA Inc. (http://www.zend.com)
 * @license http://framework.zend.com/license/new-bsd New BSD License
 */
class Zend_Config_Writer_Yaml extends Zend_Config_Writer_FileAbstract {

    /**
     * What to call when we need to decode some YAML?
     * @var callable
     */
    protected $_yamlEncoder = array('Zend_Config_Writer_Yaml', 'encode');

    /**
     * Get callback for decoding YAML
     * @return callable
     */
    public function getYamlEncoder () {
        return $this -> _yamlEncoder;
    }

    /**
     * Set callback for decoding YAML
     * @param callable $yamlEncoder the decoder to set
     * @return Zend_Config_Yaml
     */
    public function setYamlEncoder ($yamlEncoder) {
        if ( ! is_callable ($yamlEncoder)) {
            require_once 'Zend/Config/Exception.php';
            throw new Zend_Config_Exception ('Invalid parameter to setYamlEncoder - must be callable');
        }
        $this -> _yamlEncoder = $yamlEncoder;
        return $this;
    }

    /**
     * Render a Zend_Config into a YAML config string.
     * @since 1.10
     * @return string
     */
    public function render () {
        $data = $this -> _config -> toArray ();
        $sectionName = $this -> _config -> getSectionName ();
        $extends = $this -> _config -> getExtends ();
        if (is_string ($sectionName)) {
            $data = array($sectionName => $data);
        }
        foreach ($extends as $section => $parentSection) {
            $data[$section][Zend_Config_Yaml::EXTENDS_NAME] = $parentSection;
        }
        // Ensure that each "extends" section actually exists
        foreach ($data as $section => $sectionData) {
            if (is_array ($sectionData) && isset ($sectionData[Zend_Config_Yaml::EXTENDS_NAME])) {
                $sectionExtends = $sectionData[Zend_Config_Yaml::EXTENDS_NAME];
                if ( ! isset ($data[$sectionExtends])) {
                    // Remove "extends" declaration if section does not exist
                    unset ($data[$section][Zend_Config_Yaml::EXTENDS_NAME]);
                }
            }
        }
        return call_user_func ($this -> getYamlEncoder (), $data);
    }

    /**
     * Very dumb YAML encoder
     * Until we have Zend_Yaml...
     * @param array $data YAML data
     * @return string
     */
    public static function encode ($data) {
        return self::_encodeYaml (0, $data);
    }

    /**
     * Service function for encoding YAML
     * @param int $indent Current indent level
     * @param array $data Data to encode
     * @return string
     */
    protected static function _encodeYaml ($indent, $data) {
        reset ($data);
        $result = "";
        $numeric = is_numeric (key ($data));
        foreach ($data as $key => $value) {
            if (is_array ($value)) {
                $encoded = "\n" . self::_encodeYaml ($indent + 1, $value);
            } else {
                $encoded = (string) $value . "\n";
            }
            $result .= str_repeat ("  ", $indent) . ($numeric ? "- " : "$key: ") . $encoded;
        }
        return $result;
    }

}
